﻿Public Class frmInDanhMucKhachHang
    'ReportType 1- ngày; 2- tháng; 3-năm; 4-từ ngày đến ngày
    Public PhieuNhapKhoId As Integer
    Public TenKhachHang As String
    Public MaTinhThanh As Integer
    Private Sub frmInDanhMucKhachHang_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            Me.WindowState = FormWindowState.Maximized
            Dim dtKhachHang As New DataTable
            Dim controller As New QuanLyKhachHang.DanhMucKhachHangBLL
            dtKhachHang = controller.DanhMucKhachHang_GetItems_ToDataTable(TenKhachHang, MaTinhThanh)
            Dim objReport As New rptDanhMucKhachHang
            objReport.Database.Tables("dtKhachHang").SetDataSource(dtKhachHang)
            cvrThongKe.ReportSource = objReport
        Catch ex As Exception
            ShowError()
        End Try
    End Sub
End Class